home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 021 - HO Utilities - Clock Utility System.dsk / ML.OLD.MODES.bas < prev    next >
BASIC Source File  |  2019-02-16  |  411b  |  12 lines
  1. 10  REM MACHINE LANGUAGE EXAMPLE
  2. 20 D$ =  CHR$(4)
  3. 30  PRINT D$"BLOAD BIN.OLD.MODES"
  4. 40  TEXT : HOME : PRINT "WHAT SLOT IS THE CLOCK IN?  ";: GET N$: PRINT N$:SLOT =  VAL(N$)
  5. 50  IF SLOT <1  OR SLOT >7  THEN 40
  6. 60  POKE 768 +7,192 +SLOT
  7. 100  CALL 768
  8. 110 I = 512: VTAB 5
  9. 120 C =  PEEK(I): PRINT  CHR$(C);:I = I +1: IF C < >141  THEN 120
  10. 130  IF  PEEK( -16384) <128  THEN 100
  11. 140  POKE  -16368,0
  12. 150  POKE 512,141